INPUTCC    SEXP,VAR,IEXP
INPUTDATE  SEXP,VAR,IEXP
INPUTINT   SEXP,VAR,IEXP
INPUTMONEY SEXP,VAR,IEXP

 Function
  Prompt the user for a string of text of a specific length and with type
  dependent valid characters.

 Syntax
  INPUT... prompt,var,color

   prompt  - A string expression with the prompt to display to the user.
   var     - The variable in which to store the user's input.
   color   - An integer expression with the color to display the prompt in.

  INPUT should be followed by one of the following types (without spaces
  between the INPUT and type):

         CC    - credit card data   (################)
         DATE  - Date data          (##/##/##)
         INT   - Any interger data  (###########)
         MONEY - Money              (#############)
         TIME  - Time               (##:##:##)
         YN    - Yes or No response (#)

 Remarks
  This statement will accept a string of input from the user, with a set
  of valid characters and up to a maximum length (MAXLEN) determined by
  the statement in use.  In addition to displaying the prompt, it will
  display parenthesis around the input field if the user is in ANSI mode.
  Because of this, you should generally limit your prompts to a length
  determined by the following formula:  (80-MAXLEN-4).  Here are the valid
  character masks and maximum length values for each of the input
  statements:

   INPUT      Valid          Maximum
   Type     Characters        Length
   -----  ----------------  ----------
   CC       0123456789         16
   DATE     0123456789-/        8
   INT      0123456789+-       11
   MONEY    0123456789+-$.     13
   TIME     0123456789:         8
   YN       (See Note)          1

  Note: The INPUTYN statement valid characters are dependent on the users
        language selection.  Usually they will be "YN" for english language
        systems.  Other letters may be defined for different languages in
        PCBML.DAT.

 Examples

  DATE    d
  INTEGER i
  MONEY   m
  STRING  cc, yn
  TIME    t
  INPUTCC "Enter Credit Card Number",cc
  INPUTDATE "Enter DATE",d
  INPUTINT "Enter INTEGER",i
  INPUTMONEY "Enter MONEY",m
  INPUTTIME "Enter TIME",t
  INPUTYN "Enter Yes/No Response",s
  PRINTLN cc," ",d," ",i
  PRINTLN m," ",t," ",yn